function ValueResult=FilterFourthLevelEditorsCoAuthors3(n1)
    
% n1=2;
ValueTime=clock();
disp(['Start of the processing at ' num2str(ValueTime(1,4)) ':' num2str(ValueTime(1,5)) ':' num2str(ValueTime(1,6)) ' for journal ' num2str(n1)]);
ValueFolderTemp2='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\ResultsEditor\ResultsUnfiltered\';
ValueFolderTemp='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\ResultsEditor\';
load([ValueFolderTemp2 'FileAnalysisEditorCoAuthors' num2str(n1) 'RestrictedYear2Month8.mat']); % For editor 125
load([ValueFolderTemp2 'FileAnalysisEditorCoAuthors' num2str(n1) 'RestrictedYear2Month8Temp.mat']);
% load([ValueFolderTemp 'ResultsCharacteristicsEditor' num2str(n1) '.mat']);
for n2=1:size(VecGroupCoAuthors,1)
    ValueTemp=VecGroupCoAuthors{n2,1};
    ValueTemp=ValueTemp+1;
    for n3=2:size(VecGroupCoAuthors,2)
        ValueTemp2=double(VecGroupCoAuthors{n2,n3});
        VecGroupCoAuthors(n2,n3)={ValueTemp2};
    end
    n4=ValueTemp+1;
    TestTemp6=0;
    for n3=ValueTemp+1:size(VecGroupCoAuthors,2)
        ValueTemp2=VecGroupCoAuthors{n2,n3};
        n5=2;
        TestTemp5=0;
        while TestTemp5==0&&n5<=ValueTemp
            ValueTemp3=VecGroupCoAuthors{n2,n5};
            if size(ValueTemp2,2)==size(ValueTemp3,2)
                if sum(abs(ValueTemp2-ValueTemp3))==0
                    TestTemp5=1;
                end
            end
            n5=n5+1;
        end
        if TestTemp5==0
            VecGroupCoAuthors(n2,n4)={ValueTemp2};
            n4=n4+1;
            TestTemp6=1;
        end
    end
    if TestTemp6==1
        VecGroupCoAuthors(n2,1)={n4-2};
    end
end
VecA=192:1:198;
VecA=[VecA 65];
Veca=224:1:230;
Veca=[Veca 97];
VecC=[199 67];
Vecc=[231 99];
VecE=200:203;
VecE=[VecE 69];
Vece=232:1:235;
Vece=[Vece 101];
VecI=204:207;
VecI=[VecI 73];
Veci=236:1:239;
Veci=[Veci 105];
Vecn=[241 110];
VecO=210:214;
VecO=[VecO 216 79];
Veco=242:1:246;
Veco=[Veco 248 111];
VecU=217:1:220;
VecU=[VecU 85];
Vecu=249:1:252;
Vecu=[Vecu 117];
VecY=[221 89];
Vecy=[253 121];
Vecs=[223 115];
VecSpecialCharacters=[{VecA} {Veca} {VecC} {Vecc} {VecE} {Vece} {VecI} {Veci} {Vecn} {VecO} {Veco} {VecU} {Vecu} {VecY} {Vecy} {Vecs}];
for n2=1:33
    n2
    eval(['VecValueTemp=VecResultsAuthors' num2str(n2) 'j1y1m2;']);
    eval(['VecValueTemp3=VecResultsAuthors' num2str(n2) 'j1y1m1;']);
    eval(['VecValueTemp2=VecResultsNameAuthors' num2str(n2) 'j1y1m;']);
    VecResultsCoAuthorsm1=[];
    VecResultsCoAuthorsm2=[];
    VecResultsNameCoAuthorsm=[];
    VecResultsOtherAuthorsm1=[];
    VecResultsOtherAuthorsm2=[];
    VecResultsNameOtherAuthorsm=[];
    VecResultsCoAuthorsm1Filtered=[];
    VecResultsCoAuthorsm2Filtered=[];
    VecResultsNameCoAuthorsmFiltered=[];
    VecResultsOtherAuthorsm1Filtered=[];
    VecResultsOtherAuthorsm2Filtered=[];
    VecResultsNameOtherAuthorsmFiltered=[];
    size(VecValueTemp,2)
    for n3=1:size(VecValueTemp,2)
        ValueResult=checkAuthorsEditorsNature5(VecValueTemp2{1,n3},VecGroupCoAuthors,VecSpecialCharacters,0);
        if ValueResult>1
            ValueResultFiltered=0;
            ValueResult=1;
        else
            if ValueResult==1
                ValueResultFiltered=1;
                ValueResult=1;
            else
                ValueResultFiltered=0;
                ValueResult=0;
            end
        end
        if ValueResult==1
            VecResultsCoAuthorsm1=[VecResultsCoAuthorsm1 VecValueTemp3(:,n3)];
            VecResultsCoAuthorsm2=[VecResultsCoAuthorsm2 VecValueTemp(:,n3)];
            VecResultsNameCoAuthorsm=[VecResultsNameCoAuthorsm VecValueTemp2(:,n3)];
        else
            VecResultsOtherAuthorsm1=[VecResultsOtherAuthorsm1 VecValueTemp3(:,n3)];
            VecResultsOtherAuthorsm2=[VecResultsOtherAuthorsm2 VecValueTemp(:,n3)];
            VecResultsNameOtherAuthorsm=[VecResultsNameOtherAuthorsm VecValueTemp2(:,n3)];
        end
        if ValueResultFiltered==1
            VecResultsCoAuthorsm1Filtered=[VecResultsCoAuthorsm1Filtered VecValueTemp3(:,n3)];
            VecResultsCoAuthorsm2Filtered=[VecResultsCoAuthorsm2Filtered VecValueTemp(:,n3)];
            VecResultsNameCoAuthorsmFiltered=[VecResultsNameCoAuthorsmFiltered VecValueTemp2(:,n3)];
        else
            VecResultsOtherAuthorsm1Filtered=[VecResultsOtherAuthorsm1Filtered VecValueTemp3(:,n3)];
            VecResultsOtherAuthorsm2Filtered=[VecResultsOtherAuthorsm2Filtered VecValueTemp(:,n3)];
            VecResultsNameOtherAuthorsmFiltered=[VecResultsNameOtherAuthorsmFiltered VecValueTemp2(:,n3)];
        end
        if mod(n3,5000)==0
            n3
        end
    end
    n12=1;
    n42=1;
    eval(['VecResultsCoAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm1=VecResultsCoAuthorsm1;']);
    eval(['VecResultsOtherAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm1=VecResultsOtherAuthorsm1;']);
    eval(['VecResultsCoAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm2=VecResultsCoAuthorsm2;']);
    eval(['VecResultsOtherAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm2=VecResultsOtherAuthorsm2;']);
    eval(['VecResultsNameCoAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm=VecResultsNameCoAuthorsm;']);
    eval(['VecResultsNameOtherAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm=VecResultsNameOtherAuthorsm;']);
    eval(['VecResultsCoAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm1Filtered=VecResultsCoAuthorsm1Filtered;']);
    eval(['VecResultsOtherAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm1Filtered=VecResultsOtherAuthorsm1Filtered;']);
    eval(['VecResultsCoAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm2Filtered=VecResultsCoAuthorsm2Filtered;']);
    eval(['VecResultsOtherAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'm2Filtered=VecResultsOtherAuthorsm2Filtered;']);
    eval(['VecResultsNameCoAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'mFiltered=VecResultsNameCoAuthorsmFiltered;']);
    eval(['VecResultsNameOtherAuthors' num2str(n2) 'j' num2str(n12) 'y' num2str(n42) 'mFiltered=VecResultsNameOtherAuthorsmFiltered;']);
end
ValueFile=['FileAnalysisEditorCoAuthors' num2str(n1) 'RestrictedYear2Month8.mat'];
VecResults1=1;
ValueTemp='save([ValueFolderTemp ValueFile]';
for n65=1:33
    n1=1;
    n3=1;
    ValueTemp=[ValueTemp ',''VecResultsCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1'',''VecResultsCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2'',''VecResultsCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1Filtered'',''VecResultsCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2Filtered'',''VecResultsOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1'',''VecResultsOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2'',''VecResultsOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1Filtered'',''VecResultsOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2Filtered'',''VecResultsNameCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm'',''VecResultsNameOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm'',''VecResultsNameCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'mFiltered'',''VecResultsNameOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'mFiltered'''];
end
ValueTemp=[ValueTemp ',''ValueMaxDate1'',''ValueMaxDate2'',''VecGroupCoAuthors'',''VecResults1'');'];
eval(ValueTemp);
ValueTime=clock();
disp(['End of the processing at ' num2str(ValueTime(1,4)) ':' num2str(ValueTime(1,5)) ':' num2str(ValueTime(1,6)) ' for journal ' num2str(n1)]);
